home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 2.iso / STUTTGART / UNIXTOOL / GNU / TILEFORTH / TILE / TILE~ / !Tile / test / queues < prev    next >
Text File  |  1992-04-19  |  811b  |  52 lines
  1. .( Loading Queues test...) cr
  2.  
  3. #include <tile$lib>.queues
  4. #include <tile$lib>.blocks
  5.  
  6. blocks queues definitions
  7.  
  8. : print-queue ( queue -- )
  9.   block[ . ]; map-queue
  10. ;
  11.  
  12. .( 1: Create a queue and insert some elements) cr
  13.  
  14. QUEUE foo ( -- queue)
  15. foo print-queue
  16. foo ?empty-queue .
  17. foo size-queue . cr
  18.  
  19. QUEUE fie ( -- queue)
  20. fie foo enqueue
  21. foo print-queue
  22. foo ?empty-queue .
  23. foo size-queue . cr
  24.  
  25. QUEUE fum ( -- queue)
  26. fum foo enqueue
  27. foo print-queue
  28. foo ?empty-queue .
  29. foo size-queue . cr
  30.  
  31.  
  32. .( 2: Print information about all the queue elements) cr
  33.  
  34. foo block[ .queue cr ]; map-queue
  35.  
  36.  
  37. .( 3: Remove some queue elements) cr
  38.  
  39. fie dequeue foo .queue cr
  40. fum dequeue foo .queue cr
  41.  
  42.  
  43. .( 4: Try the member function) cr
  44.  
  45. foo foo ?member-queue .
  46. fie foo ?member-queue .
  47. fie foo enqueue 
  48. fie foo ?member-queue . cr
  49.  
  50. forth only
  51.  
  52.